PC Answers 1995 December/PC Answers December 1995 (disc errors).iso/mxc/intro.dir/00005_MS for Intro.ls

Text File | 1995-05-04 | 4.7 KB | 190 lines

global fixPal, myLine, auto, ok, gsliderbar, fullMoov, csn, lem, palName, bd, gAudBlrb, tpal, myLine2, gExtraVid, gdirmovie, gmyLineKeep, gBackColor, gForeColor, profileVid, gVolume, gFirstTimeIn

on startMovie
  if the machineType < 256 then
    openXLib("XPALETTE")
    set fixPal to fixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  else
    openXLib("XPALETTE.dll")
    set fixPal to XPALETTE(mnew)
  end if
  if myLine <> 1 then
    set the controller of cast 101 to 0
  end if
  if myLine <> 1 then
    set the video of cast 101 to 0
  end if
  set auto to 0
  set ok to 3
  set myLine to 1
  set myLine2 to 1
  set gmyLineKeep to 1
  set profileVid to 0
  set tpal to 201
  set fullMoov to the duration of cast 101
  set gExtraVid to 1
  set csn to 6
  cursor(0)
end

on buttonsUp
  set the castNum of sprite 8 to 27
  set the castNum of sprite 11 to 51
  set the castNum of sprite 12 to 52
  set the castNum of sprite 13 to 53
  set the castNum of sprite 14 to 54
  set the castNum of sprite 15 to 55
  set the castNum of sprite 16 to 56
  set the castNum of sprite (myLine + 10) to myLine + 60
  updateStage()
end

on setVid
  if myLine = -1 then
    exit
  end if
  if myLine2 = myLine then
    exit
  end if
  if myLine >= 1 then
    set the castNum of sprite 24 to 26
    updateStage()
  end if
  set the locV of sprite 3 to -500
  set the locV of sprite 4 to -500
  set the locV of sprite 5 to -500
  set the locV of sprite 6 to -500
  set the locV of sprite 7 to -500
  blankBut()
  updateStage()
  set the castNum of sprite 24 to myLine + 100
  set fullMoov to the duration of cast (myLine + 100)
  set palName to myLine + 200
  puppetPalette(palName)
  patchPal()
  set myLine2 to myLine
  set the locV of sprite 3 to 40
  set the locV of sprite 4 to 74
  set the locV of sprite 5 to 115
  set the locV of sprite 6 to 155
  set the locV of sprite 7 to 191
  set the video of cast (myLine + 100) to 1
  set the controller of cast (myLine + 100) to gsliderbar
  updateStage()
  set the volume of sprite 24 to gVolume
  cursor(0)
end

on autoPlay
  set fullMoov to the duration of cast (myLine + 100)
  set the castNum of sprite 7 to 35
  updateStage()
  set auto to 1
end

on check
  global myLine, auto, csn, gExtraVid, fullMoov
  if myLine > (csn + gExtraVid) then
    exit
  end if
  if (the movieTime of sprite 24 > 0) and (the movieTime of sprite 24 <> fullMoov) then
    exit
  end if
  if (auto = 0) and (the movieTime of sprite 24 = fullMoov) then
    if myLine = (csn + gExtraVid) then
      set the movieTime of sprite 24 to 0
      exit
    end if
  end if
  if (auto = 1) and (the movieRate of sprite 24 = 0) then
    if the movieTime of sprite 24 = fullMoov then
      if myLine = csn then
        set auto to 0
        set myLine to 1
        set the castNum of sprite 7 to 25
        buttonsUp()
        exit
      else
        set myLine to myLine + 1
        buttonsUp()
      end if
    else
      if (the movieTime of sprite 24 = 0) and (auto = 1) then
        set the movieRate of sprite 24 to 1
      else
        set the movieRate of sprite 24 to 0
      end if
    end if
  end if
end

on blankBut
  global gAudBlrb, auto
  if myLine = 1 then
    set the castNum of sprite 4 to 30
    set the castNum of sprite 6 to 24
    if auto = 0 then
      set the castNum of sprite 7 to 25
    else
      set the castNum of sprite 7 to 35
    end if
  else
    if (myLine > 1) and (myLine < csn) then
      set the castNum of sprite 4 to 22
      set the castNum of sprite 6 to 24
      if auto = 0 then
        set the castNum of sprite 7 to 25
      else
        set the castNum of sprite 7 to 35
      end if
    else
      if myLine = csn then
        set the castNum of sprite 4 to 22
        set the castNum of sprite 6 to 40
        if auto = 0 then
          set the castNum of sprite 7 to 25
        else
          set the castNum of sprite 7 to 35
        end if
      else
        if myLine = (csn + gExtraVid) then
          set the castNum of sprite 4 to 30
          set the castNum of sprite 6 to 40
          set the castNum of sprite 7 to 50
        else
          if gAudBlrb = 1 then
            set the castNum of sprite 4 to 30
            set the castNum of sprite 6 to 40
            set the castNum of sprite 7 to 50
          end if
        end if
      end if
    end if
  end if
end

on flushMe
  if the machineType = 256 then
    openXLib("GLOBMEM")
    set OBJ to GLOBMEM(mnew)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mdispose)
  end if
end

on patchPal
  fixPal(mPatchIt)
end

on stopMovie
  if the machineType < 256 then
    fixPal(mdispose)
    closeXLib("XPALETTE")
  else
    fixPal(mdispose)
    closeXLib("XPALETTE.dll")
  end if
end